COMMENT →→→ Notice to readers of this code ←←←;

COMMENT BEGIN "SAMPLE"		Replace with program name

The following equivalences have been made to save
time and space:

Symbol		Equivalence
							;DEFINE
!	=	"COMMENT",
⊂	=	"BEGIN",
S⊂	=	"START_CODE",
Q⊂	=	"QUICK_CODE",
⊃	=	"END",
Q1	=	'13,
Q2	=	Q1+1,
Q3	=	Q2+1,
SP	=	'16,
P	=	'17,
INT	=	"SHORT INTEGER",
RL	=	"SHORT REAL",
REF	=	"REFERENCE",
PROC	=	"SIMPLE PROCEDURE",
EXT	=	"EXTERNAL",
PRE	=	"PRELOAD_WITH",
THRU	=	"STEP 1 UNTIL",
CRLF	=	"'15&'12",
IODEND  =	'20000;

COMMENT {} are used for matching quotes in macros;

REQUIRE "{}{}" DELIMITERS;

DEFINE ACCUMULATORS(AC_LIST)={ DEFINE AC_COUNT=2;
  FORLC SYMBOL=AC_LIST DOC { DEFINE SYMBOL=AC_COUNT,
    AC_COUNT=AC_COUNT+1;} ENDC };